cd ""
/*It would probably save in “C:\ado\personal\maptile_geographies” so */
*maptile_install using "http://files.michaelstepner.com/geo_county1990.zip" 
    
use "county1990_coords", clear
    
    bysort _ID: egen x=median(_X)
    bysort _ID: egen y=median(_Y)
    
collapse (lastnm) x y,by(_ID)
    
    preserve
    
        use "county1990_database", clear
        
        keep county id
        
        rename id _ID
        
        save county1990_id_fips, replace
        
    restore
    
merge 1:1 _ID using county1990_id_fips, update replace nogen

collapse _ID x y , by(county)
gen FIPS=county
preserve 
import delimited "data_figure_1.txt", clear 
rename fips FIPS
save "data_figure_1.dta", replace
restore
merge 1:1 FIPS using "data_figure_1.dta"

maptile radio, fcolor(Greys) geo(county1990)  spopt(label(xcoord(x) ycoord(y) size(tiny ) color(black) label(cityname ) ) ) 